20 REM ON-SCREEN SCORE MAINTENANCE UTILITY
40 REM (C) JB KINLEY  JANUARY 1988
50 REM PLACE SCORE IN VARIABLE SC
60 REM NUMBER OF LIVES IN LI%
70 REM INITIALISE WITH SYS 49152
80 REM SUBSEQUENT CALLS TO SYS 49218
90 REM
100 IF S=0 THEN S=1:LOAD "SKEEP.MC",8,1
450 REM
470 REM** THIS PROGRAM**
480 REM**IS FOR DEMONSTRATION ONLY**
490 REM
500 BLANK$=" "
510 DOWN$="":REM 24 CSR DOWNS
520 POKE53280,0:POKE53281,0
530 PRINT"[147]"
540 M$="[159]ON-SCREEN SCORE MAINTENANCE":GOSUB840
550 M$=BLANK$:GOSUB840
560 M$="[156]BY J KINLEY      JANUARY 1988":GOSUB 840
570 M$=BLANK$:GOSUB840
580 SYS 49152:POKE53287,1:REM PRINT SCORE IN WHITE
590 PRINT""LEFT$(DOWN$,12);"[150]THIS PROGRAM ALLOWS YOU TO DISPLAY"
600 PRINT"GAME SCORES ON-SCREEN"
610 FORSC=1TO99999STEP999:SYS49218:NEXT
620 PRINT"[154]IRRESPECTIVE OF SCREEN DISPLAY MODE"
630 PRINT"[152]AND UNAFFECTED BY BACKGROUND SCROLLING"
640 FORSC=999999TO500000STEP-12345:SYS49218:FORS=1TO100:NEXT:NEXT
650 PRINT""DOWN$
660 FORSC=100TO2500STEP100:FORS=1TO150:NEXT:PRINT:SYS49218:NEXT:SYS49218
670 M$="[158]YOU CAN ALSO MAINTAIN A COUNT OF":GOSUB840
680 M$="LIVES REMAINING":GOSUB840
690 FORT=1TO6:LI%=T:SYS49218:FORS=1TO800:NEXT:NEXT
700 PRINT""DOWN$
710 FORT=1TO25:PRINT:SC=INT(RND(0)*1000000):LI%=RND(0)*7:SYS49218
720 FORS=1TO500:NEXT:NEXT
730 M$="THE SCORE DISPLAY CAN BE PLACED":GOSUB840
740 M$="[159]ANYWHERE ON SCREEN":GOSUB840
750 POKE53264,(PEEK(53264)AND254)
760 FORT=1TO15:X=RND(1)*231+24:Y=RND(1)*160+50
770 FORS=1TO800:NEXT:POKE53248,X:POKE53249,Y:NEXT
780 POKE53269,(PEEK(53269)AND254)
790 M$="[158]END OF DEMONSTRATION":GOSUB840
800 M$="[156]PRESS 'R' TO RE-RUN, ANY KEY TO EXIT":GOSUB840
810 GETA$:IFA$=""THEN810
820 IFA$="R"THEN530
830 END
840 REM**MESSAGE SCROLLING ROUTINE**
850 FORT=39TO1STEP-1
860 MS$=LEFT$(M$,40-T)
870 PRINT""TAB(T)LEFT$(DOWN$,12);MS$;" "
880 FORS=1TO100:NEXT
890 NEXT:RETURN